﻿
namespace TestFsWeb

open System

module Helper =

    let pause_for(hint : string) =
        printfn "Press ENTER to %s, ......" hint
        Console.ReadLine() |> ignore

    let combine_path (baseUri : string) (relativeUri : string) =
        sprintf "%s/%s" (baseUri.TrimEnd('/').TrimEnd('\\')) (relativeUri.TrimStart('/').TrimStart('\\'))
